home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Games Collection 1 / software vault.zip / software vault / CDR09 / _BANDIT_.ZIP / BANDIT.BAS
BASIC Source File  |  1993-06-10  |  2KB  |  97 lines

  1. 10 PRINT "WELCOME TO YASSER ZIA'S BANDIT"
  2. 20 REM
  3. 30 GOSUB 9010
  4. 35 DIM R(3)
  5. 40 PRINT "SO, WANT A DESCRIPTION OR WHAT? (Y OR N)";
  6. 50 INPUT Q$
  7. 60 IF Q$ = "N" THEN 120
  8. 70 IF Q$ = "Y" THEN 110
  9. 80 PRINT "COME ON DUDE! ANSWER: Y FOR YES"
  10. 90 PRINT "  OR N FOR NO..."
  11. 100 GOTO 40
  12. 110 GOSUB 1010
  13. 120 LET T = 0
  14. 130 PRINT
  15. 140 PRINT "GET READY TO LOSE PAL!"
  16. 150 PRINT "HOW MUCH YOU WANNA BET?";
  17. 160 INPUT Q
  18. 170 IF Q > 0 THEN 200
  19. 180 PRINT "YOU HAVE TO BET TO PLAY YOU DING DONG!"
  20. 190 GOTO 150
  21. 200 IF Q < 501 THEN 230
  22. 210 PRINT "ARE YOU NUTS DUDE?! BE REASONABLE!"
  23. 220 GOTO 130
  24. 230 IF Q > .99 THEN 250
  25. 240 PRINT "YOU'RE A CHEAPSKATE DUDE!"
  26. 250 GOSUB 3010
  27. 260 GOSUB 4010
  28. 270 LET T = T + Q
  29. 280 IF T < 0 THEN 350
  30. 290 IF T > 0 THEN 380
  31. 300 PRINT "GONNA CHICKEN OUT YET DUDE? (Y OR N)"
  32. 310 INPUT Q$
  33. 320 IF Q$ = "N" THEN 140
  34. 330 PRINT "*** SEE YOU AROUND.......CHUMP ***"
  35. 340 END
  36. 350 PRINT "ALL RIGHT PUNK, COUGH IT UP!"; ABS(T)
  37. 360 IF ABS(T) < 200 THEN 140
  38. 370 GOTO 300
  39. 380 PRINT "YOU'VE WON:  $"; T
  40. 1000 GOTO 360
  41. 1010 PRINT "THIS GAME SIMULATES A"
  42. 1020 PRINT "  ONE-ARMED BANDIT (THAT'S"
  43. 1030 PRINT "  A SLOT MACHINE FOR YOU AMEBAES WHO DON'T KNOW)."
  44. 1040 PRINT "BET ON EACH PULL - UP TO $200 BUCKS"
  45. 1050 PRINT "3 JACKPOTS GIVES YOU 20 X THE BET"
  46. 1060 PRINT "3 BARS GIVES YOU 10 X THE BET"
  47. 1070 PRINT "3 OF ANYTHING ELSE GIVES YOU 5 X THE BET"
  48. 1080 PRINT "2 OF THE OTHERS GIVES YOU DOUBLE THE BET"
  49. 3000 RETURN
  50. 3010 REM  "FETCH THE FRUITS BUDDY"
  51. 3020 DATA JACKPOT, BELL, PLUM
  52. 3030 DATA ORANGE, LEMON, GRAPE
  53. 3040 DATA CHERRY, APPLE, MELON
  54. 3050 DATA BAR
  55. 3060 FOR I = 1 TO 3
  56. 3070 LET R = INT(10 * RND(1)) + 1
  57. 3080 LET R(I) = R
  58. 3090 FOR J = 1 TO R
  59. 3100 READ X$
  60. 3110 NEXT J
  61. 3120 RESTORE
  62. 3130 PRINT TAB(I * 10 - 10); X$;
  63. 3140 NEXT I
  64. 3150 PRINT
  65. 4000 RETURN
  66. 4010 REM  "FIGURE WIN AMOUNT"
  67. 4020 IF R(1) + R(2) + R(3) = 3 THEN 4110
  68. 4030 IF R(1) + R(2) + R(3) = 30 THEN 4090
  69. 4040 FOR I = 1 TO 2
  70. 4050 IF R(3) <> R(I) THEN 4130
  71. 4060 NEXT I
  72. 4070 LET Q = 5 * Q
  73. 4080 RETURN
  74. 4090 LET Q = 10 * Q
  75. 4100 RETURN
  76. 4110 LET Q = 20 * Q
  77. 4120 RETURN
  78. 4130 IF R(3) = R(1) THEN 4180
  79. 4140 IF R(3) = R(2) THEN 4180
  80. 4150 IF R(1) = R(2) THEN 4180
  81. 4160 LET Q = 0 - Q
  82. 4170 RETURN
  83. 4180 LET Q = Q * 2
  84. 9000 RETURN
  85. 9010 REM  "RANDOM NUMBER ROUTINE"
  86. 9020 LET Z = RND(1)
  87. 9030 RETURN
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.